Jak ziskat ico ?
Otázka od: Jiri Betunak
28. 10. 2002 11:00
Ahoj Konference
potreboval bych ziskavat ikonu zastupce.
{napr: mam soubor na Plose ..plocha\Nescape.lnk jak s nej ziskat odkaz
na iconu v netscp.exe }
Nevi nekdo jak na to ?
Jiri Betunak
kindrik@centrum.cz
Delphi5 pro ;Windows ME 4 90
Odpovedá: Petr Vones
28. 10. 2002 14:37
From: "Jiri Betunak" <kindrik@centrum.cz>
> potreboval bych ziskavat ikonu zastupce.
> {napr: mam soubor na Plose ..plocha\Nescape.lnk jak s nej ziskat odkaz
> na iconu v netscp.exe }
Napriklad pomoci funkce ShellLinkGetIcon v unitu JclShell v JCL:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
http://delphi-jedi.org/CODELIBJCL
Petr Vones
Odpovedá: Lenka Donátová
29. 10. 2002 10:59
Ëxistují programy které umí z exe souboru vyextrahovat soubor ico. Zkus to
na www.download.com
v sekci Home & Desktop/IconTools
----- Original Message -----
From: Jiri Betunak <kindrik@centrum.cz>
To: Delphi konference <delphi-l@clexpert.cz>
Sent: Monday, October 28, 2002 10:44 AM
Subject: Jak ziskat ico ?
> Ahoj Konference
> potreboval bych ziskavat ikonu zastupce.
> {napr: mam soubor na Plose ..plocha\Nescape.lnk jak s nej ziskat odkaz
> na iconu v netscp.exe }
>
> Nevi nekdo jak na to ?
>
>
>
>
>
> Jiri Betunak
> kindrik@centrum.cz
> Delphi5 pro ;Windows ME 4 90
Odpovedá: Lenka Donátová
29. 10. 2002 11:54
Existuji programy ktere umi z exe souboru vyextrahovat soubor ico. Zkus to
na www.download.com
v sekci Home & Desktop/IconTools
----- Original Message -----
From: Jiri Betunak <kindrik@centrum.cz>
To: Delphi konference <delphi-l@clexpert.cz>
Sent: Monday, October 28, 2002 10:44 AM
Subject: Jak ziskat ico ?
> Ahoj Konference
> potreboval bych ziskavat ikonu zastupce.
> {napr: mam soubor na Plose ..plocha\Nescape.lnk jak s nej ziskat odkaz
> na iconu v netscp.exe }
>
> Nevi nekdo jak na to ?
>
>
>
>
>
> Jiri Betunak
> kindrik@centrum.cz
> Delphi5 pro ;Windows ME 4 90
Odpovedá: Petr Vones
29. 10. 2002 23:10
From: "Jiri Betunak" <kindrik@centrum.cz>
> Je to velice pekne ale bohuzel jsem nepochopil jak s tim pracovat byla
> by mozna mala ukazecka ?
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
ComObj, JclFileUtils, JclShell, JclSysInfo;
procedure TForm1.Button1Click(Sender: TObject);
var
Link: TShellLink;
begin
if Succeeded(ShellLinkResolve(PathAddSeparator(GetDesktopFolder) +
'Explorer.lnk', Link)) and
ShellLinkGetIcon(Link, Image1.Picture.Icon) then
ShowMessage('OK')
else
ShowMessage('Error');
end;
Petr Vones
Odpovedá: Jiri Betunak
29. 10. 2002 21:45
Ahoj, Lenka,
Tuesday, October 29, 2002, 11:01:23 AM, you wrote:
LD> Ëxistují programy které umí z exe souboru vyextrahovat soubor ico. Zkus to
LD> na www.download.com
LD> v sekci Home & Desktop/IconTools
LD> ----- Original Message -----
LD> From: Jiri Betunak <kindrik@centrum.cz>
LD> To: Delphi konference <delphi-l@clexpert.cz>
LD> Sent: Monday, October 28, 2002 10:44 AM
LD> Subject: Jak ziskat ico ?
>> Ahoj Konference
>> potreboval bych ziskavat ikonu zastupce.
>> {napr: mam soubor na Plose ..plocha\Nescape.lnk jak s nej ziskat odkaz
>> na iconu v netscp.exe }
>>
>> Nevi nekdo jak na to ?
>>
>>
>>
>>
>>
>> Jiri Betunak
>> kindrik@centrum.cz
>> Delphi5 pro ;Windows ME 4 90
To je sice pekne ale jak to mam pouzit v delphi a jeste ktomu v mem
programu ? Potrebuji nacitat relativni odkazy ja totiz vubec nevim co
tam bude za zastupce
(*.lnk) 
--
S pozdravem
Jiri mailto:kindrik@centrum.cz
Odpovedá: Jiri Betunak
29. 10. 2002 22:21
Je to velice pekne ale bohuzel jsem nepochopil jak s tim pracovat byla
by mozna mala ukazecka ?
Predem dik
Jiri Betunak
Delphi 5 ,WinME;WinXP
Monday, October 28, 2002, 2:24:08 PM, you wrote:
PV> From: "Jiri Betunak" <kindrik@centrum.cz>
>> potreboval bych ziskavat ikonu zastupce.
>> {napr: mam soubor na Plose ..plocha\Nescape.lnk jak s nej ziskat odkaz
>> na iconu v netscp.exe }
PV> Napriklad pomoci funkce ShellLinkGetIcon v unitu JclShell v JCL:
PV>
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
PV> http://delphi-jedi.org/CODELIBJCL
PV> Petr Vones
--
S pozdravem
Jiri mailto:kindrik@centrum.cz